use Modern::Perl;
use Mail::Box::Manager;
use Test::More;

my $obj = Mail::Box::Manager->new();
my $folder = $obj->open(folder=>"imap4://bixichao:abc123\@mail.berrygenomics.com/test", access => 'r');
$folder->messages( sub{ note $_->label('seen') } );
